home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed15.d64 / lesson 15 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  259 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 15                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"           (null)WO (null)TEP (null)ROBLEMS  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  (null)HAT WILL BE MY CHANGE FROM TWENTY
  51. 210 PRINT"  DOLLARS IF [201] BOUGHT 25 LITRES OF
  52. 215 [153]"  GAS AT 60 CENTS A LITRE?"
  53. 217 [153]"  (STR$ON'T FORGET THE $ SIGN)"
  54. 220 [141]81:[141]70
  55. 225 [153]"             ON"
  56. 230 [133] A$
  57. 240 [139]A$[179][177]"$5.00"[175]A$[179][177]"$5"[167]270
  58. 250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  59. 260 P[178]P[170]1:[137]300
  60. 270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)LEFT$ - (null)AIN!":[141]60:[141]82:Z[178]Z[170]1
  61. 275 [139]Z[178]2[167]G[178]G[170]1:[137]285
  62. 280 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  63. 282 [153]"OPENONON                                        ONONONONONONON"
  64. 283 [137]225
  65. 285 [153]"ONONSYS  (null)HE ANSWER IS $5.00SYS            ":[141]82
  66. 290 [153]"  25 X .60 = 15.00                 "
  67. 292 [153]"  AND 20.00 - 15.00 = 5.00
  68. 295 GOSUB82:GOSUB90
  69. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  70. 305 PRINT"  [212]ONY WAS GIVEN A DOLLAR AND SPENT
  71. 310 [153]"  37 CENTS FOR CANDY AND 51 CENTS         FOR POP.
  72. 315 PRINT"  [200]OW MUCH MONEY DID HE HAVE LEFT?"
  73. 320 GOSUB81:GOSUB70
  74. 325 PRINT"             [145]"
  75. 330 INPUT A$
  76. 340 IFA$<>"12"ANDA$<>"12 CENTS"ANDA$<>"$.12"THEN370
  77. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  78. 360 P=P+1:GOTO400
  79. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  80. 375 IFZ=2THENG=G+1:GOTO385
  81. 380 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  82. 382 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  83. 383 GOTO325
  84. 385 PRINT"[145][145][158]  [212]HE ANSWER IS 12[158] CENTS.        ":GOSUB82
  85. 390 PRINT"  37 + 51 = 88                     "
  86. 392 PRINT"  AND 100 - 88 = 12
  87. 395 [141]82:[141]90
  88. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  89. 405 [153]"  (null)R. (null)ILSON SPENT $23 FOR FOOD AND
  90. 410 PRINT"  $14 FOR GAS.
  91. 415 [153]"  LEFT$OW MUCH CHANGE DID HE GET FROM A       50 DOLLAR BILL?"
  92. 420 [141]81:[141]70
  93. 425 [153]"             ON"
  94. 430 [133] A$
  95. 440 [139]A$[179][177]"$16.00"[175]A$[179][177]"$16"[167]470
  96. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  97. 460 P[178]P[170]1:[137]500
  98. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  99. 475 [139]Z[178]2[167]G[178]G[170]1:[137]485
  100. 480 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  101. 482 [153]"OPENONON                                        ONONONONONONON"
  102. 483 [137]425
  103. 485 [153]"ONONSYS  (null)HE ANSWER IS $13.00SYS           ":[141]82
  104. 490 [153]"  23 + 14 = 37                     "
  105. 492 [153]" AND  50 - 37 = 13
  106. 495 GOSUB82:GOSUB90
  107. 500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
  108. 505 PRINT"  [200]OW MUCH MONEY COULD [205]ARY SAVE IF
  109. 510 [153]"  HER DAILY ALLOWANCE WAS $2.75,
  110. 515 PRINT"  HER BUS FARE WAS $1, AND HER
  111. 517 [153]"  LUNCH WAS $1.25?"
  112. 520 [141]81:[141]70
  113. 525 [153]"             ON"
  114. 530 [133] A$
  115. 540 [139]A$[179][177]"$.50"[175]A$[179][177]"50 CENTS"[175]A$[179][177]"50"[167] 570
  116. 550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  117. 560 P[178]P[170]1:[137]600
  118. 570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  119. 575 [139]Z[178]2[167]G[178]G[170]1:[137]585
  120. 580 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  121. 582 [153]"OPENONON                                        ONONONONONONON"
  122. 583 [137]525
  123. 585 [153]"ONONSYS  (null)HE ANSWER IS 50SYS CENTS.        ":[141]82
  124. 590 [153]"  1.00 + 1.25 = 2.25               "
  125. 592 [153]"  AND 2.75 - 2.25 = .50
  126. 595 GOSUB82:GOSUB90
  127. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  128. 605 PRINT"  [200]OW MUCH CHANGE WOULD YOU RECEIVE
  129. 610 [153]"  FROM A DOLLAR IF YOU BOUGHT 3 MELONS    AT 23 CENTS EACH.?"
  130. 620 [141]81:[141]70
  131. 625 [153]"             ON"
  132. 630 [133] A$
  133. 640 [139]A$[179][177]"$0.31"[175]A$[179][177]"31 CENTS"[175]A$[179][177]"31"[167] 670
  134. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  135. 660 P[178]P[170]1:[137]700
  136. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  137. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  138. 680 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  139. 682 [153]"OPENONON                                        ONONONONONONON"
  140. 683 [137]625
  141. 685 [153]"ONONSYS  (null)HE ANSWER IS 31SYS CENTS.        ":[141]82
  142. 690 [153]"  3 X 23 = 69                      "
  143. 692 [153]"  AND 1.00 - .69 = .31
  144. 695 GOSUB82:GOSUB90
  145. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  146. 705 PRINT"  [202]OHN BOUGHT 2 BUNS FOR 38 CENTS
  147. 710 [153]"  AND A DOZEN APPLES FOR 52 CENTS.
  148. 715 PRINT"  [200]OW MUCH CHANGE DID HE RECEIVE          FROM 2 DOLLARS?"
  149. 725 PRINT"             [145]"
  150. 730 INPUT A$
  151. 740 IFA$<>"$1.10"THEN770
  152. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  153. 760 P=P+1:GOTO800
  154. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  155. 775 IFZ=2THENG=G+1:GOTO785
  156. 780 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  157. 782 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  158. 783 GOTO725
  159. 785 PRINT"[145][145][158]  [212]HE ANSWER IS $1.10[158]            ":GOSUB82
  160. 790 PRINT"  38 + 52 = 90                     "
  161. 792 PRINT"  AND 2.00 - .90 = 1.10
  162. 795 [141]82:[141]90
  163. 800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
  164. 805 [153]"  MID$OE BOUGHT A GRAPEFRUIT FOR 51 CENTS,
  165. 810 PRINT"  AN ORANGE FOR 15 CENTS, AND AN APPLE
  166. 815 [153]"  FOR 12 CENTS.
  167. 817 PRINT"  [200]OW MUCH CHANGE DID HE GET FROM $5?"
  168. 820 GOSUB81:GOSUB70
  169. 825 PRINT"             [145]"
  170. 830 INPUT A$
  171. 840 IFA$<>"$4.22"THEN870
  172. 850 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  173. 860 P=P+1:GOTO900
  174. 870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  175. 875 IFZ=2THENG=G+1:GOTO885
  176. 880 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  177. 882 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  178. 883 GOTO825
  179. 885 PRINT"[145][145][158]  [212]HE ANSWER IS $4.22[158]            ":GOSUB82
  180. 890 PRINT"  51 + 15 + 12 = 78                "
  181. 892 PRINT"  AND 5.00 - .78 = 4.22
  182. 895 [141]82:[141]90
  183. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  184. 905 [153]"  RIGHT$ HAND A GARAGE MAN A TWENTY DOLLAR
  185. 910 PRINT"  BILL FOR 7 LITRES OF OIL AT $1.50       A LITRE.
  186. 915 [153]"  LEFT$OW MUCH CHANGE SHOULD RIGHT$ RECEIVE?"
  187. 920 [141]81:[141]70
  188. 925 [153]"             ON"
  189. 930 [133] A$
  190. 940 [139]A$[179][177]"$9.50"[167]970
  191. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  192. 960 P[178]P[170]1:[137]1000
  193. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  194. 975 [139]Z[178]2[167]G[178]G[170]1:[137]985
  195. 980 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  196. 982 [153]"OPENONON                                        ONONONONONONON"
  197. 983 [137]925
  198. 985 [153]"ONONSYS  (null)HE ANSWER IS $9.50SYS            ":[141]82
  199. 990 [153]"  7 X 1.50 = 10.50                 "
  200. 992 [153]"  AND 20.00 - 10.50 = 9.50
  201. 995 GOSUB82:GOSUB90
  202. 1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
  203. 1005 PRINT"  [199]EORGE BOUGHT 8 COMPUTER DISKS
  204. 1010 [153]"  AT $1.50 EACH
  205. 1015 PRINT"  [200]OW MUCH CHANGE DID HE GET FROM         A TWENTY DOLLAR BILL?"
  206. 1020 GOSUB81:GOSUB70
  207. 1025 PRINT"             [145]"
  208. 1030 INPUT A$
  209. 1040 IFA$<>"$8.00"ANDA$<>"$8"THEN1070
  210. 1050 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  211. 1060 P=P+1:GOTO1100
  212. 1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  213. 1075 IFZ=2THENG=G+1:GOTO1085
  214. 1080 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  215. 1082 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  216. 1083 GOTO1025
  217. 1085 PRINT"[145][145][158]  [212]HE ANSWER IS $8.00[158]            ":GOSUB82
  218. 1090 PRINT"  8 X 1.50 = 12.00                 "
  219. 1092 PRINT"  AND 20.00 - 12.00 = 8.00
  220. 1095 [141]82:[141]90
  221. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  222. 1105 [153]"  LEFT$OW MUCH CHANGE SHOULD (null)OUIS GET
  223. 1110 PRINT"  FROM 25 CENTS IF HE BUYS THREE PENS     AT 7 CENTS EACH?"
  224. 1120 GOSUB81:GOSUB70
  225. 1125 PRINT"             [145]"
  226. 1130 INPUT A$
  227. 1140 IFA$<>"4"ANDA$<>"4 CENTS"AND A$<>"$.04"THEN1170
  228. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  229. 1160 GOTO1200
  230. 1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  231. 1175 IFZ=2THENG=G+1:GOTO1185
  232. 1180 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  233. 1182 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  234. 1183 GOTO1125
  235. 1185 PRINT"[145][145][158]  [212]HE ANSWER IS 4[158] CENTS.         ":GOSUB82
  236. 1190 PRINT"  7 X 3 = 21                       "
  237. 1192 PRINT"  AND 25 - 21 = 4
  238. 1195 [141]82:[141]90
  239. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  240. 1205 D[178]W[171]G:C[178]10[171]W
  241. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  242. 1215 PRINT"                 ";C
  243. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  244. 1225 [153]"                 ";D
  245. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  246. 1235 PRINT"                 ";G;""
  247. 1245 GOSUB90
  248. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  249. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  250. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  251. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  252. 1270 IFR$="R"THENRESTORE:GOTO100
  253. 1275 RESTORE
  254. 1280 PRINT"[147] [210]ETURNING TO THE DISK MENU
  255. 1285 [147]"MENU",8
  256. 1290 [138]
  257. 1295 [128]
  258. 1300 [143] BILL CUMBERLAND 91:01:04
  259.